COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "0"
C00004 00003	S⊂ "LOOP" 
C00006 ENDMK
C⊗;
BEGIN "0"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;

	DEFINE CALLI="'047000000000";
	DEFINE SWAR ="'043000000000";
	DEFINE UPG  ="'703000000000";

	ITG ARRAY DPYBUF [0:25000];
	ITG ARRAY FRAME[0:60];
	ITG ARRAY SIZE[0:60];
	ITG I,J,FLG;
	ITG PTR,SIZ;
	STRING FILM;
	LABEL L1,L2;

L1:
	FILM ← "A";
	PTR ← 0;
α LOAD 'EM UP;
	FOR I←0 STEP 1 UNTIL '54 DO
	BEGIN
		OPEN(1,"DSK",8,3,0,0,0,0);
		LOOKUP(1,FILM&CVOS(I)&".PLT[ARM,LOU]",FLG);
		IF FLG THEN GO L1;
		J ← WORDIN(1);
		SIZ ← WORDIN(1);
		ARRYIN(1,DPYBUF[PTR],SIZ);
		RELEASE(1);
		FRAME[I]←LOCATION(DPYBUF[PTR]);
		SIZE[I]←SIZ;
		PTR←PTR+SIZ;
	END;
	OUTSTR(↓&9&"TOTAL BUFFER SIZE IS "&CVS(PTR)&↓);
	S⊂ MOVEI L2;HRRM '120;HRRM '124;'047000400017;JRST 4,;⊃;
L2:
S⊂ "LOOP" 
	LABEL L0,L1,SA,L2,L3,DEL,CRL,OSTR,L00;
	LABEL SWARG,REE,CNT1,CNT2;
	MOVEI 1001;
	'702000000000 3,;
	MOVEI L0;HLRM '120;
L0:	MOVEI REE;HRRM '144;MOVEI 1,40;
L00: 	MOVE CRL;XCT OSTR;SOJG 1,L00;

α FIRE UP SPACE WAR JOB;
	SETZM I;
	MOVEI SA;
	HRL SWARG;
	CALLI '400003;
	CALLI '400017;

α SLEEP - PER CHANCE TO DREAM;
L1:	MOVEI 1,1;
	CALLI 1,'31;
	JFCL;
	'051100000000;
	JRST L1;
	CAIN '15;JRST L1;CAIN '12;JRST L1;
	ANDI '17;MOVEM CNT2;
	MOVE CRL;XCT OSTR;
	MOVE CRL;XCT OSTR;
	MOVE CRL;XCT OSTR;
	MOVE CRL;XCT OSTR;
	MOVE CRL;XCT OSTR;
	JRST L1;

α SPACE WAR MODULE;
SA:	AOS 1,CNT1;CAMGE 1,CNT2;CALLI '400024;
	SETZM CNT1;
	MOVE 1,I;ADD 1,DEL;SKIPN 1;MOVNS DEL;MOVEM 1,I;
	CAIN 1,'54;MOVNS DEL;
	MOVE 1,I; ADD 1,FRAME; MOVE (1); MOVEM PTR;
	MOVE 1,I; ADD 1,SIZE;  MOVE (1); MOVEM SIZ;
	JRST 3,@L2;L2: L3;L3: UPG PTR;
	JFCL;
	CALLI '400024;
DEL:	1;
CRL:	'064240000000;
OSTR:	'051140000000;
SWARG:	'400001;
CNT1:0;CNT2:0;
REE:	ANDI '17;
	MOVEM SWARG;
	JRST L0;
END;
END "0";